home *** CD-ROM | disk | FTP | other *** search
/ Invisible Universe / Invisible Universe (1995)(Voyager)[Mac-PC].iso / mac / MOVIES / STARMAP.DIR / 00008_Script_transitionxxx < prev    next >
Text File  |  1995-11-16  |  710b  |  34 lines
  1. -- standard button trios
  2. property toLabel, theDirection
  3.  
  4. on birth me, w, h
  5.   set toLabel to label(w)
  6.   set theDirection to h
  7.   return me
  8. end
  9.  
  10. --change appearance
  11. on rollo me
  12.   --put ">>> rollo in transition (label=" & toLabel
  13.   if theDirection = "Up" then
  14.     -- push down = 13
  15.     puppetTransition 13,5,32,false
  16.   else if theDirection = "Right" then
  17.     -- push left = 11
  18.     puppetTransition 11,5,32,false
  19.   else if theDirection = "Down" then
  20.     -- push up = 14
  21.     puppetTransition 14,5,32,false
  22.   else if theDirection = "Left" then
  23.     -- push right = 12
  24.     puppetTransition 12,5,32,false
  25.   end if
  26.   go frame toLabel
  27. end
  28.  
  29. on doRollOverMe me
  30.   return 1
  31. end
  32.  
  33. on norm me
  34. end